In display-buffer-pop-up-frame make BUFFER current (Bug#15133).

* window.el (display-buffer-pop-up-frame): Call pop-up-frame-function
with BUFFER current so `make-frame' will use it as the new frame's
buffer (Bug#15133).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d319e41a987529c21c694c1baa6e563887459b4e..a726e487c4a8a7a62b48ca399291cfdf7ff6c547 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2013-08-23  Martin Rudalics  <rudalics@gmx.at>
+
+       * window.el (display-buffer-pop-up-frame): Call
+       pop-up-frame-function with BUFFER current so `make-frame' will
+       use it as the new frame's buffer (Bug#15133).
+
 2013-08-22  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * calendar/timeclock.el: Minor cleanups.

diff --git a/lisp/window.el b/lisp/window.el
index 64cf0a72110cbedcff914637b7b0cbb6c9f83c6f..21e40071782995aca7d8a95d4652a633b2330873 100644 (file)
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -5642,7 +5642,10 @@ new frame."
         (fun pop-up-frame-function)
         frame window)
     (when (and fun
-              (setq frame (funcall fun))
+              ;; Make BUFFER current so `make-frame' will use it as the
+              ;; new frame's buffer (Bug#15133).
+              (with-current-buffer buffer
+                (setq frame (funcall fun)))
               (setq window (frame-selected-window frame)))
       (prog1 (window--display-buffer
              buffer window 'frame alist display-buffer-mark-dedicated)